home *** CD-ROM | disk | FTP | other *** search
- object Form20: TForm20
- Left = 232
- Top = 135
- AutoSize = True
- BorderStyle = bsNone
- Caption = 'Sat�l�k Emlak Gir�i'
- ClientHeight = 480
- ClientWidth = 640
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 640
- Height = 480
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Label1: TLabel
- Left = 40
- Top = 104
- Width = 24
- Height = 13
- Caption = 'Semt'
- Transparent = True
- end
- object Label3: TLabel
- Left = 240
- Top = 248
- Width = 38
- Height = 13
- Caption = 'Asans�r'
- Transparent = True
- end
- object Label4: TLabel
- Left = 40
- Top = 176
- Width = 37
- Height = 13
- Caption = 'Hidrofor'
- Transparent = True
- end
- object Label5: TLabel
- Left = 40
- Top = 200
- Width = 40
- Height = 13
- Caption = 'Zeminler'
- Transparent = True
- end
- object Label6: TLabel
- Left = 40
- Top = 224
- Width = 32
- Height = 13
- Caption = 'Kap�lar'
- Transparent = True
- end
- object Label7: TLabel
- Left = 40
- Top = 248
- Width = 33
- Height = 13
- Caption = 'Mutfak'
- Transparent = True
- end
- object Label8: TLabel
- Left = 40
- Top = 272
- Width = 16
- Height = 13
- Caption = 'Kat'
- Transparent = True
- end
- object Label9: TLabel
- Left = 40
- Top = 296
- Width = 27
- Height = 13
- Caption = 'D�viz'
- Transparent = True
- end
- object Label10: TLabel
- Left = 240
- Top = 296
- Width = 20
- Height = 13
- Caption = 'Oda'
- Transparent = True
- end
- object Label11: TLabel
- Left = 40
- Top = 328
- Width = 27
- Height = 13
- Caption = 'Adres'
- Transparent = True
- end
- object Label12: TLabel
- Left = 40
- Top = 352
- Width = 43
- Height = 13
- Caption = 'A��klama'
- Transparent = True
- end
- object Label13: TLabel
- Left = 240
- Top = 104
- Width = 22
- Height = 13
- Caption = 'Fiyat'
- Transparent = True
- end
- object Label14: TLabel
- Left = 240
- Top = 128
- Width = 46
- Height = 13
- Caption = 'Is� Sistemi'
- Transparent = True
- end
- object Label15: TLabel
- Left = 240
- Top = 152
- Width = 38
- Height = 13
- Caption = 'Otopark'
- Transparent = True
- end
- object Label16: TLabel
- Left = 240
- Top = 176
- Width = 40
- Height = 13
- Caption = 'Duvarlar'
- Transparent = True
- end
- object Image2: TImage
- Left = 40
- Top = 148
- Width = 13
- Height = 15
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label17: TLabel
- Left = 240
- Top = 200
- Width = 31
- Height = 13
- Caption = 'Tavan'
- Transparent = True
- end
- object Label18: TLabel
- Left = 240
- Top = 224
- Width = 30
- Height = 13
- Caption = 'Banyo'
- Transparent = True
- end
- object Label19: TLabel
- Left = 40
- Top = 128
- Width = 29
- Height = 13
- Caption = 'Emlak'
- Transparent = True
- end
- object Label20: TLabel
- Left = 240
- Top = 272
- Width = 52
- Height = 13
- Caption = 'Kay�t Tarihi'
- Transparent = True
- end
- object Label21: TLabel
- Left = 440
- Top = 104
- Width = 18
- Height = 13
- Caption = '�sim'
- Transparent = True
- end
- object Label22: TLabel
- Left = 440
- Top = 128
- Width = 15
- Height = 13
- Caption = 'Tel'
- Transparent = True
- end
- object Label23: TLabel
- Left = 440
- Top = 152
- Width = 26
- Height = 13
- Caption = '�� Tel'
- Transparent = True
- end
- object Label24: TLabel
- Left = 440
- Top = 176
- Width = 37
- Height = 13
- Caption = 'Cep Tel'
- Transparent = True
- end
- object Label25: TLabel
- Left = 440
- Top = 200
- Width = 37
- Height = 13
- Caption = 'Anahtar'
- Transparent = True
- end
- object Label26: TLabel
- Left = 440
- Top = 224
- Width = 31
- Height = 13
- Caption = 'Durum'
- Transparent = True
- end
- object Image3: TImage
- Left = 72
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- Visible = False
- end
- object Image6: TImage
- Left = 248
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image003.jpg>}
- Visible = False
- end
- object Image7: TImage
- Left = 416
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image004.jpg>}
- Visible = False
- end
- object Label2: TLabel
- Left = 80
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Liste'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label2MouseDown
- OnMouseUp = Label2MouseUp
- end
- object Label27: TLabel
- Left = 256
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yazd�r'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label27MouseDown
- OnMouseUp = Label27MouseUp
- end
- object Label28: TLabel
- Left = 424
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = '��k��'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label28MouseDown
- OnMouseUp = Label28MouseUp
- end
- object Image4: TImage
- Left = 544
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image005.jpg>}
- OnMouseDown = Image4MouseDown
- OnMouseUp = Image4MouseUp
- end
- object Image5: TImage
- Left = 576
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image006.jpg>}
- OnMouseDown = Image5MouseDown
- OnMouseUp = Image5MouseUp
- end
- object Image8: TImage
- Left = 544
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image007.jpg>}
- Visible = False
- end
- object Image9: TImage
- Left = 576
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image008.jpg>}
- Visible = False
- end
- object Image11: TImage
- Left = 448
- Top = 277
- Width = 149
- Height = 34
- AutoSize = True
- Picture.Data = {<image009.jpg>}
- end
- object Image12: TImage
- Left = 448
- Top = 275
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image010.jpg>}
- Visible = False
- end
- object Label29: TLabel
- Left = 456
- Top = 288
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Emlak Sahibini G�ster'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- OnMouseDown = Label29MouseDown
- OnMouseUp = Label29MouseUp
- end
- object DBEdit1: TDBEdit
- Left = 96
- Top = 144
- Width = 121
- Height = 21
- DataField = 'Metre2'
- DataSource = DataSource1
- TabOrder = 2
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit4: TDBEdit
- Left = 96
- Top = 192
- Width = 121
- Height = 21
- DataField = 'Zeminler'
- DataSource = DataSource1
- TabOrder = 4
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit5: TDBEdit
- Left = 96
- Top = 216
- Width = 121
- Height = 21
- DataField = 'Kapilar'
- DataSource = DataSource1
- TabOrder = 5
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit6: TDBEdit
- Left = 96
- Top = 240
- Width = 121
- Height = 21
- DataField = 'Mutfak'
- DataSource = DataSource1
- TabOrder = 6
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit7: TDBEdit
- Left = 96
- Top = 264
- Width = 121
- Height = 21
- DataField = 'Kat'
- DataSource = DataSource1
- TabOrder = 7
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBNavigator1: TDBNavigator
- Left = 40
- Top = 72
- Width = 570
- Height = 18
- DataSource = DataSource1
- Hints.Strings = (
- '�lk Kay�t'
- '�nceki Kay�t'
- 'Sonraki Kay�t'
- 'Son Kay�t'
- 'Kay�t Ekle'
- 'Kay�t Sil'
- 'De�i�iklik'
- 'Onayla'
- 'De�i�iklik �ptal'
- 'Yenile')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 26
- end
- object DBEdit8: TDBEdit
- Left = 296
- Top = 96
- Width = 121
- Height = 21
- DataField = 'Fiyati'
- DataSource = DataSource1
- TabOrder = 9
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBMemo1: TDBMemo
- Left = 96
- Top = 352
- Width = 513
- Height = 41
- DataField = 'Notlar'
- DataSource = DataSource1
- TabOrder = 25
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit11: TDBEdit
- Left = 96
- Top = 288
- Width = 121
- Height = 21
- DataField = 'D�viz'
- DataSource = DataSource1
- TabOrder = 8
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit12: TDBEdit
- Left = 296
- Top = 288
- Width = 121
- Height = 21
- DataField = 'Oda'
- DataSource = DataSource1
- TabOrder = 17
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit14: TDBEdit
- Left = 296
- Top = 168
- Width = 121
- Height = 21
- DataField = 'Duvarlar'
- DataSource = DataSource1
- TabOrder = 12
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit15: TDBEdit
- Left = 296
- Top = 192
- Width = 121
- Height = 21
- DataField = 'Tavanlar'
- DataSource = DataSource1
- TabOrder = 13
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit16: TDBEdit
- Left = 296
- Top = 216
- Width = 121
- Height = 21
- DataField = 'Banyo'
- DataSource = DataSource1
- TabOrder = 14
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit18: TDBEdit
- Left = 296
- Top = 264
- Width = 121
- Height = 21
- DataField = 'Satis'
- DataSource = DataSource1
- TabOrder = 16
- OnEnter = DBEdit18Enter
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit19: TDBEdit
- Left = 488
- Top = 96
- Width = 121
- Height = 21
- DataField = 'Isim'
- DataSource = DataSource1
- TabOrder = 18
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit20: TDBEdit
- Left = 488
- Top = 120
- Width = 121
- Height = 21
- DataField = 'Telefon'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 19
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit21: TDBEdit
- Left = 488
- Top = 144
- Width = 121
- Height = 21
- DataField = 'Istel'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 20
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit22: TDBEdit
- Left = 488
- Top = 168
- Width = 121
- Height = 21
- DataField = 'Ceptel'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 21
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit23: TDBEdit
- Left = 488
- Top = 192
- Width = 121
- Height = 21
- DataField = 'Anahtar'
- DataSource = DataSource1
- TabOrder = 22
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBMemo2: TDBMemo
- Left = 96
- Top = 320
- Width = 513
- Height = 25
- DataField = 'Adres'
- DataSource = DataSource1
- TabOrder = 24
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 96
- Top = 96
- Width = 121
- Height = 21
- DataField = 'Semtadi'
- DataSource = DataSource1
- KeyField = 'Semtler'
- ListField = 'Semtler'
- ListSource = DataSource2
- TabOrder = 0
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBLookupComboBox2: TDBLookupComboBox
- Left = 96
- Top = 120
- Width = 121
- Height = 21
- DataField = 'Emlak'
- DataSource = DataSource1
- KeyField = 'EmlakTipi'
- ListField = 'EmlakTipi'
- ListSource = DataSource3
- TabOrder = 1
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox1: TDBComboBox
- Left = 488
- Top = 216
- Width = 121
- Height = 21
- DataField = 'Durum'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Sat�ld�'
- 'Sat�lmad�')
- TabOrder = 23
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox2: TDBComboBox
- Left = 96
- Top = 168
- Width = 121
- Height = 21
- DataField = 'Hidrofor'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Var'
- 'Yok')
- TabOrder = 3
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox3: TDBComboBox
- Left = 296
- Top = 144
- Width = 121
- Height = 21
- DataField = 'Otopark'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Var'
- 'Yok')
- TabOrder = 11
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox4: TDBComboBox
- Left = 296
- Top = 240
- Width = 121
- Height = 21
- DataField = 'Asansor'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Var'
- 'Yok')
- TabOrder = 15
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object Panel1: TPanel
- Left = 440
- Top = 96
- Width = 170
- Height = 170
- BevelOuter = bvNone
- Caption = 'Panel1'
- TabOrder = 27
- object Image10: TImage
- Left = 0
- Top = 0
- Width = 170
- Height = 170
- AutoSize = True
- Picture.Data = {<image011.jpg>}
- end
- end
- object DBComboBox5: TDBComboBox
- Left = 296
- Top = 120
- Width = 121
- Height = 21
- DataField = 'Isisistemi'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Sobal�'
- 'Do�al Gaz Kaloriferli'
- 'Do�al Gaz Sobal�'
- 'Kalofiferli')
- TabOrder = 10
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 56
- Top = 8
- end
- object Table1: TTable
- Active = True
- AfterPost = Table1AfterPost
- TableName = 'segiris'
- Left = 88
- Top = 16
- object Table1No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table1Metre2: TFloatField
- FieldName = 'Metre2'
- end
- object Table1Asansor: TStringField
- FieldName = 'Asansor'
- Size = 10
- end
- object Table1Hidrofor: TStringField
- FieldName = 'Hidrofor'
- Size = 10
- end
- object Table1Zeminler: TStringField
- FieldName = 'Zeminler'
- Size = 15
- end
- object Table1Kapilar: TStringField
- FieldName = 'Kapilar'
- Size = 15
- end
- object Table1Mutfak: TStringField
- FieldName = 'Mutfak'
- Size = 15
- end
- object Table1Kat: TStringField
- FieldName = 'Kat'
- Size = 6
- end
- object Table1Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Table1Dviz: TStringField
- FieldName = 'D�viz'
- Size = 15
- end
- object Table1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Table1Isim: TStringField
- FieldName = 'Isim'
- end
- object Table1Istel: TStringField
- FieldName = 'Istel'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Anahtar: TStringField
- FieldName = 'Anahtar'
- end
- object Table1Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Table1Oda: TStringField
- FieldName = 'Oda'
- end
- object Table1Isisistemi: TStringField
- FieldName = 'Isisistemi'
- end
- object Table1Otopark: TStringField
- FieldName = 'Otopark'
- end
- object Table1Duvarlar: TStringField
- FieldName = 'Duvarlar'
- end
- object Table1Tavanlar: TStringField
- FieldName = 'Tavanlar'
- end
- object Table1Banyo: TStringField
- FieldName = 'Banyo'
- end
- object Table1Emlak: TStringField
- FieldName = 'Emlak'
- end
- object Table1Satis: TStringField
- FieldName = 'Satis'
- Size = 15
- end
- object Table1Telefon: TStringField
- FieldName = 'Telefon'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Ceptel: TStringField
- FieldName = 'Ceptel'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Durum: TStringField
- FieldName = 'Durum'
- end
- object Table1Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 208
- Top = 8
- end
- object Table2: TTable
- Active = True
- TableName = 'semtler.db'
- Left = 272
- Top = 8
- end
- object DataSource3: TDataSource
- DataSet = Table3
- Left = 352
- Top = 16
- end
- object Table3: TTable
- Active = True
- TableName = 'emlaktanimlama.db'
- Left = 400
- Top = 24
- end
- end
-